#'
#' @TODO pdf转PNG图片
#' @title pdf转PNG图片
#' @description 在pdf当前路径下生成一个同样名称的PNG图片
#' @details : firse line
#' @param pdf pdf文件路径
#' @param dpi 自定义dpi
#' @param pages 自定义哪几页
#'
#' @author: *WYK*
#'
pdf2png <- function(pdf = NULL, dpi = 300, pages = NULL) {
    if (stringr::str_detect(pdf, "\\.pdf")) {
        filename <- stringr::str_replace_all(pdf, "pdf", "png")
    }

    if (stringr::str_detect(pdf, "\\.PDF")) {
        filename <- stringr::str_replace_all(pdf, "PDF", "png")
    }

    if (!is.null(pages)) {
        filename <- stringr::str_replace_all(filename, ".png", str_glue("_{pages}.png"))
    }

    if (is.null(pages)) {
        pages <- 1
    }

    pdftools::pdf_convert(pdf = pdf, format = "png", pages = pages, filenames = filename,
        dpi = dpi, verbose = F)
}

